
Cost_Text:

 .db "COST;", 0

Money_Text:

 .db "[", 0



Lobster_Text:

 .db 92, 0

Zerotext:

 .db 0, 0, 0, 0, 0, 0

In_Group_And_Max_Text:

 .db "IN/GROUP;/////MAX;", 0

Not_Enough_Crystals:

 .db "NOT/ENOUGH/BELTHIUM", 0

Text_Building_Processing_Unit:

 .db "PROCESSING/UNIT"

Friendly_Unit:

 .db "FRIENDLY"

HP_Text:
 
 .db "HP;///"

Too_Many_PUs:

 .db "CANNOT/ADD/MORE/PUS", 0



Standard_Alert_Standard_Data:
 
 ld (Standard_Alert_Text), hl

 ld hl, 0
 ld (Standard_Alert_Timer), hl


 ret

Display_Resources_Earned:

 ld hl, 58 * 256 + 66
 ld (penCol), hl

 ld hl, cleartext
 ld de, ASCIINumber
 ld bc, 6
 ldir

 ld hl, plotsscreen + (12*57+8)
 ld b, 7

 call Clear_Area_Money_Matters

 ld de, (Player1 + Player_Money)
 call bintobcd16
 
 ld hl, ASCIINumber + 5
 ld a, (Money_Text)
 ld (hl), a

 ld hl, ASCIINumber
 ld b, 6

 call Put_Text_B_Length

 ret
 
Display_Food_Count:

 ld hl, 51 * 256 + 66
 ld (penCol), hl

 ld hl, cleartext
 ld de, ASCIINumber
 ld bc, 6
 ldir

;Clear an area for the text to be drawn on

 ld hl, plotsscreen + (12*47+8)
 ld b, 11

 call Clear_Area_Money_Matters


 ld de, (Player1 + Player_Food)
 call bintobcd16
 
 ld hl, ASCIINumber + 5
 ld a, (Lobster_Text)
 ld (hl), a

 ld hl, ASCIINumber
 ld b, 6

 call Put_Text_B_Length

 ret
 


Clear_Area_Money_Matters:

 ld a, %00000000
 or a 
 ld de, 8
 sbc hl, de
_

 ld c, b
 ld b, 4
 add hl, de
_

 ld (hl), a
 inc hl
 djnz -_

 ld b, c
 djnz --_ 

 ret



